home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_200_finishtwo.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  1.5 KB  |  33 lines
  1. global colorauthoringpath
  2. global movefileone
  3. global MoveFileTwo
  4. global MovePathTwo
  5. global FileTwoInfo
  6. global importfilew
  7. put empty into importfilew
  8. put MovePathTwo into process
  9. put  FullResList("T=ALL", "O=TNIS", "W=" & MovePathTwo) into resdata
  10. if resdata is "Error : This file has no resource fork" then
  11. answer "You will be adding resources to a file without a resource fork." &&¬¨
  12. "This isn't a problem as long as you know what you want." with "Cancel" or "Okay"
  13. if it is "Okay" then put "Empty" & return & "        " into resdata
  14. if it is "Cancel" then do restext("TEXT", "Exit", colorauthoringpath)
  15. end if
  16. put the last char of process into holdfilename
  17. delete last char of process
  18. repeat until it is ":"
  19. get the last char of process
  20. if it is not ":" then  put it before char 1 of holdFileName
  21. delete the last char of process -- this could be shorter with
  22. end repeat -- changing itemDelimiter to ":", but would require HC 2.1
  23. put holdFileName  into MoveFileTwo
  24. if MoveFileTwo is "ResGenie‚Ñ¢" then
  25. showdialog 1, "503","Please use Resedit to edit these files. Sorry, but it's for your own good!" ,"True"
  26. if there is a window Movefileone then close window movefileone
  27. if there is a window movefiletwo then close window movefiletwo
  28. do restext ("TEXT", "Exit", colorauthoringpath)
  29. end if
  30. put resdata into FileTwoInfo
  31. do sort FileTwoInfo
  32. if the number of lines of FileTwoInfo is 1 then put return & "   " after line 1 of FileTwoInfo
  33. do Listoid  MoveFileTwo, FileTwoInfo, "one","Move it :","blue,white", "Chicago", "12", "0", "260,10"